home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 159
/
159.d81
/
b.64 lists
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
83 lines
100 ifpeek(44)<>192thengosub60000:goto760
110 poke56,207:poke55,252:clr:dv=peek(186):ifdv<8thendv=8
120 poke53280,0:poke53281,0:poke53246,peek(45):poke43247,peek(46)
130 dimp$(12),f$(12):tt$="[195] - 6 4 [204] [201] [211] [212] [211]"
140 print"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
150 fori=1to3:print"[158] ";:next
160 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:gosub560
170 poke211,0:poke214,22:sys58732
180 print"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
190 print"[159] ";
200 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
210 poke2023,peek(2022):poke56295,peek(56294):gosub560
220 print"[158]"spc(20-len(tt$)/2)tt$
230 poke211,10:poke214,23:sys58732:print"[159][195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect
240 [153]"":[129]i[178]1[164]17
250 [153]"contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
260 [153]"":[129]i[178]1[164]14
270 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
280 [153]"":[129]i[178]1[164]14
290 [153]"open ":[130]
300 p$(1)[178]" (NULL)ist (NULL)f peekatn(NULL)right$len/(NULL)(NULL) (NULL)outines "
310 p$(2)[178]" (NULL)prite (NULL)egisters "
320 p$(3)[178]" (NULL)right$str$ (NULL)egisters "
330 p$(4)[178]" 6502 right$nstruction (NULL)et "
340 p$(5)[178]" len-64 (NULL)o 128 (NULL)emory (NULL)ap "
350 p$(6)[178]" (NULL)eturn (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) "
360 p$(7)[178]" (NULL)eset lenomputer "
370 f$(1)[178]"routines"
380 f$(2)[178]"sprite regs
390 f$(3)="sid registers
400 f$(4)[178]"inst set
410 f$(5)="memory map"
420 f$(6)="hello connect"
430 f$(12)=""
440 print"":fori=1to7:print"[159]"p$(i):next:it=1:ot=1:gosub530
450 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)anda$<>"q"then450
460 ifa$="q"then580
470 ot=it:ifa$=""thenit=it+1:ifit>7thenit=1
480 ifa$="[145]"thenit=it-1:ifit<1thenit=7
490 ifa$<>chr$(13)thengosub530:goto450
500 iff$(it)=""thensys64738
510 ifit=7then580
520 goto640
530 poke214,ot+6:poke211,6:sys58732:print"[159]"p$(ot)
540 poke214,it+6:poke211,6:sys58732:wait53265,128,128:print"[146][153]"p$(it):return
550 stop
560 fori=217to242:pokei,peek(i)or128:next:return
570 close15:open15,8,15,"s:list menu":close15:save"list menu",8:stop
580 a$="hello connect":fori=8to13:close2:open2,i,2:close2:ifstthen600
590 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then610
600 next:print"[147]":poke186,8:end
610 q$=chr$(34):poke646,peek(53281):print"[147]"
620 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:p[207]46,8:clr:l[207]"q$a$q$","i
630 print"run:":poke631,13:poke632,13:poke198,2:end
640 a$=f$(it):fori=8to13:close2:open2,i,2:close2:ifstthen680
650 close15:poke787,119
660 open15,i,15,"r0:"+a$+"="+a$:input#15,e,e$:close15:ife=63then720
670 rem open15,i,15,"r"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
680 next:poke214,23:poke211,0:sys58732:
690 a$="[195]ouldn't find "+f$(it)+"!"
700 print"[159] [145]";spc(20-len(a$)/2)a$;
710 poke198,0:wait198,15:geta$:run
720 q$=chr$(34):poke646,peek(53281):print"[147]"
730 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:clr:l[207]"q$a$q$","i
740 print"run:":poke631,13:poke632,13:poke198,2:end
750 stop
760 a$="b.64 lists":fori=8to13:close2:open2,i,2:close2:ifstthen780
770 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then790
780 next:print"[144]":poke186,8:end
790 q$=chr$(34):poke646,peek(53281)
800 print"p[207]49152,0:p[207]44,192:p[207]43,1:p[207]56,207:p[207]55,252:clr:l[207]"q$a$q$","i
810 print"run:":poke631,13:poke632,13:poke198,2:end
60000 print"[147]":z$=" [152] ":poke214,10:print
60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 z$(0)="[195] - 6 4 [204] [201] [211] [212] [211]"
60040 z$(2)="by [195]linton [207]'[206]eill
60050 z$(4)[178]"(c) 1997 by mid$ & asc (NULL)ublishing, right$nc."
60060 z$(6)[178]"(NULL)his program is not shareware
60070 z$(7)="or in the public domain."
60080 z$(9)="1-800-594-3370 or 1-318-221-8718
60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]